-- card: 3012 from stack: in
-- bmap block id: 3204
-- flags: 4000
-- background id: 2282
-- name: User Preferences
----- HyperTalk script -----
------------------------------------------------------------------------
-- OPEN CARD
------------------------------------------------------------------------

On OpenCard
  SetUserLevel the UserLevel
  If card field "User Name" is empty
  Then click at the loc of card field "User Name"
End OpenCard

------------------------------------------------------------------------
-- SET USER LEVEL
------------------------------------------------------------------------

On SetUserLevel WhatLevel
  Set UserLevel to WhatLevel
  If the UserLevel is WhatLevel then
    Put the UserLevel into card field "User Level"
    Set hilite of button "Browsing" to the userLevel = 1
    Set hilite of button "Typing" to the userLevel = 2
    Set hilite of button "Painting" to the userLevel = 3
    Set hilite of button "Authoring" to the userLevel = 4
    Set hilite of button "Scripting" to the userLevel = 5
    Set visible of button "Power Keys" to the userLevel >= 3
    Set visible of button "Blind Typing" to the userLevel = 5
    Set hilite of button "Power Keys" to the powerKeys
    Set hilite of button "Blind Typing" to the blindTyping
  Else
    Set hilite of the target to false
  End if
End SetUserLevel



-- part 1 (button)
-- low flags: 00
-- high flags: A006
-- rect: left=141 top=139 right=160 bottom=269
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Browsing
----- HyperTalk script -----
on mouseUp
  setUserLevel 1
end mouseUp



-- part 2 (button)
-- low flags: 00
-- high flags: A006
-- rect: left=141 top=179 right=200 bottom=269
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Painting
----- HyperTalk script -----
on mouseUp
  setUserLevel 3
end mouseUp



-- part 3 (button)
-- low flags: 00
-- high flags: A006
-- rect: left=141 top=199 right=220 bottom=269
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Authoring
----- HyperTalk script -----
on mouseUp
  setUserLevel 4
end mouseUp



-- part 4 (button)
-- low flags: 00
-- high flags: E006
-- rect: left=141 top=219 right=240 bottom=269
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Scripting
----- HyperTalk script -----
on mouseUp
  setUserLevel 5
end mouseUp



-- part 5 (button)
-- low flags: 00
-- high flags: A005
-- rect: left=268 top=179 right=200 bottom=371
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Power Keys
----- HyperTalk script -----
on mouseUp
  set powerKeys to the hilite of button "Power Keys"
end mouseUp



-- part 7 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=183 top=66 right=84 bottom=476
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: User Name
----- HyperTalk script -----
on closeField
  global userName
  put card field "User Name" into userName
end closeField



-- part 8 (button)
-- low flags: 00
-- high flags: A006
-- rect: left=141 top=159 right=180 bottom=269
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Typing
----- HyperTalk script -----
on mouseUp
  setUserLevel 2
end mouseUp



-- part 9 (field)
-- low flags: 81
-- high flags: 0000
-- rect: left=173 top=125 right=144 bottom=198
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: User Level


-- part 13 (button)
-- low flags: 00
-- high flags: A005
-- rect: left=268 top=219 right=240 bottom=371
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Blind Typing
----- HyperTalk script -----
on mouseUp
  set blindTyping to the hilite of button "Blind Typing"
end mouseUp



-- part 14 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=96 top=34 right=53 bottom=481
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 


-- part contents for card part 9
----- text -----
5

-- part contents for card part 14
----- text -----
User Preferences